home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SimpleFaro.dxr / case keeper_60_deal sequence bet.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  67 lines
  1. property winMe, loseMe, spriteNum
  2. global deck, points, gPlayerBets, playerCredits, cardList, complist, bettext, winSprite, loseSprite, losingDen, winningDen
  3.  
  4. on mouseEnter me
  5.   sprite(spriteNum).member = member(sprite(spriteNum).member.name & "2")
  6. end
  7.  
  8. on mouseLeave me
  9.   sprite(spriteNum).member = member(chars(sprite(spriteNum).member.name, 1, sprite(spriteNum).member.name.char.count - 1))
  10. end
  11.  
  12. on mouseDown
  13.   if (cardList.count = 3) and not cardList.findPos(#holder) then
  14.     shuffle(complist)
  15.     if (getColor(sprite(cardList[1]).member.name) = getColor(string(complist[1].mGetImage()))) and (getColor(sprite(cardList[2]).member.name) = getColor(string(complist[2].mGetImage()))) and (getColor(sprite(cardList[3]).member.name) = getColor(string(complist[3].mGetImage()))) then
  16.       points = points + 100
  17.       playerCredits.text = string(points)
  18.     else
  19.       points = points - 50
  20.       playerCredits.text = string(points)
  21.     end if
  22.     repeat with i = 1 to 3
  23.       puppetSound(3, member("deal card", "100GPak Generic SFX"))
  24.       sprite(13 + i).member = complist[i].mGetImage()
  25.       sprite(13 + i).blend = 100
  26.       sprite(sprite(13 + i).textu).member.text = EMPTY
  27.       updateStage()
  28.     end repeat
  29.     bettext.text = "0"
  30.     deck = VOID
  31.     deck = new(script("deck of cards"))
  32.     deck.mRemoveFromDeck(deck.mDrawCard(#top))
  33.     if points <= 0 then
  34.       s = the ticks + 50
  35.       repeat while the ticks < s
  36.         nothing()
  37.       end repeat
  38.       go("game over")
  39.     else
  40.       repeat with i in ["ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
  41.         member(i && "text").text = "0/0"
  42.       end repeat
  43.       complist.deleteAll()
  44.       cardList.deleteAll()
  45.       go(2)
  46.     end if
  47.   end if
  48. end
  49.  
  50. on shuffle aList
  51.   uo = []
  52.   repeat while uo.count < 3
  53.     temp = aList[random(aList.count)]
  54.     uo.add(temp)
  55.     aList.deleteOne(temp)
  56.   end repeat
  57.   complist = uo
  58. end
  59.  
  60. on getColor arg
  61.   if (arg contains "hearts") or (arg contains "diamonds") then
  62.     return #redd
  63.   else
  64.     return #black
  65.   end if
  66. end
  67.